(defun c:dumpobjects (/ objectname)
  (setq objectname (ustr 1 "" "Enter Object Name" objectname))
  (if (eq objectname "activedocument")
    (PROGN
      (setq item (vla-get-ActiveDocument (vlax-get-acad-object)))
      (vlax-dump-object item T)
    )
    (PROGN
      (setq objects
	     (eval
	       (read (strcat
		       "(vla-get-"
		       objectname
		       "(vla-get-ActiveDocument (vlax-get-acad-object))))"
		     )
	       )
             )
      )
      (vlax-for item objects
        (vlax-dump-object item T)
        (vla-getcanonicalmedianames item)
;;;        (if (vlax-property-available-p item 'Document T)
;;;          (vlax-dump-object (vlax-get-property item 'Document T))
;;;        )
      )
    )
  )
)
;vla-put-configname 